15 POKE56,40:CLR:POKE53272,23:PRINT"";
35 DV=PEEK(186):IFDV<8ORDV>16THENDV=8
37 SYS57812"BIBLE 3000",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
38 SYS57812"DTEXT 2800",DV,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
40 MT=12288:DTEXT=10240:DIMFILES$(10),D%(7),B$(66)
50 REM POKE53374,0:POKE53366,0:POKE53375,0
55 SYSMT+201,95,105,4,10,14,1,14,7,6,1,0,0
60 SYS10240,"BOOKS",DV,80*256:SYSMT+36,80*256:WB=PEEK(20):SYSMT+54:BL=F%
65 SYSMT+15,"BNAMES",DV,107*256:SYSMT+36,107*256:SYSMT+54:BN=F%
66 FORI=0TO65:SYSMT+33,I:B$(I)=W$:NEXT
70 OPEN2,DV,2,"BIBLE MARK,P,R":GET#2,A$,A$:INPUT#2,BB,BC,BV:CLOSE2
75 IFST<>64THENBB=39:NC=1:BV=1
80 POKE650,128:SH=MT+96:FR=MT+6:CE=MT+78:BO=MT+3:AT=CE-3
85 X=0:FORI=8TO29:IFI<>14THENCLOSE2:OPEN2,I,2:CLOSE2:IFST=0THEND%(X)=I:X=X+1
90 NEXT:FORI=0TOX:IFD%(I)=DVTHENA=I
95 NEXT:ND=X:I=D%(0):D%(A)=I:D%(0)=DV:DX=0
100 T$="[194]IBLE [211]EARCH"
105 A$(1)="[211]TART [193] [211]EARCH      ([211])"
125 A$(2)="[194]ACK TO [205]AIN [205]ODULE ([205])
136 A$(3)[178]"(null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)  ((null))"
140 H$[178]" SMQ"
145 [158]MT[170]198,T$,3,A$(1),A$(2),A$(3),H$
150 [145]F%[141]300,190,190,210:[137]100
190 F$[178]"COMPLEAT NT":[137]2300
200 F$[178]"COMPLEAT NT":[137]2300
210 F$[178]"HELLO CONNECT":[137]2300
300 [158]MT[170]36,80[172]256:[158]MT,1,38,1,23,95,105,15,12
310 [158]SH,2,2[170]WB,3,20:[158]BO,3,3[170]WB,14,19,160,15
320 [158]AT,4,15,"LIST(null)LEASE SELECT EACH
330 SYSAT,4,16,"BOOK TO BE SEARCHED
340 [158]AT,4,17,"W/(null)VAL(null)(null)(null)(null). (null)LEFT$-(null) TO
350 SYSAT,4,18,"FIND BOOK. [198]1 [206]EXT
360 [158]MT[170]42,3,3[170]WB,2,12,1,12,7,1,BB,65,1:[141]2400:[142]
365 BOOK%[178]I%:[139]LB[178]I%[167]410
370 WW$[178]W$:[158]MT[170]84,W$:F$[178]W$:T[178]0
380 [141]1000:[139]F%[178][171]1[176][197](A$)[167][139]T[179]ND[167][141]2100:[137]380
390 [139]F%[178][171]1[167]E$[178]"ERROR BNF":[141]2200:[142]
400 [158]MT[170]48,0:[158]MT[170]27,BL:[158]MT[170]30,WW$,BO%,1:[158]DT,W$,D%(DX),84[172]256:HS[178]0:LH$[178]W$
1000 [158]MT[170]39,"$:"[170]F$,D%(DX),208[172]256:[158]MT[170]48,0:[160]15:[159]15,D%(DX),15
1010 [132]15,A$,E$:[160]15:[142]
2100 DX[178]DX[170]1:[139]D%(DX)[178]0[167]DX[178]0
2110 T[178]T[170]1:[142]
2200 [158]SH,0,39,0,24:[158]MT[170]48,0:[158]MT[170]15,E$,DV,28000:[158]MT[170]36,28000:EN[178]F%[171]1
2205 [139]E$[178]"ERROR BNF"[167][158]MT[170]30,"   RIGHT$ COULDN'T FIND "[170][199](34)[170]F$[170][199](34),1,1
2210 [158]BOX,0,39,1,19,160,7:[158]FRAME,0,39,0,20,2
2220 [158]MT[170]42,1,38,1,19,1,7,1,1,0,EN[171]1,0:[142]
2300 T[178]0
2310 [141]1000:[139][197](A$)[176]F%[179]0[167][139]T[179]ND[167][141]2100:[137]2310
2320 [139][197](A$)[178]0[175]F%[177][171]1[167]40000
2330 E$[178]"ERROR BNF":[137]2200
2400 [153]"OPEN";:[158]MT[170]27,BL:[151]828,0:[158]MT[170]213,0,65:[139]F%[177][171]1[167]2460
2410 A$[178]"(null)O BOOKS SELECTED":[141]5020:[151]1998,0:[142]
2460 [158]BO,2,37,22,22,32,0:[158]AT,2,22,"WAITSYS(null)EARCH:"
2470 [158]MT[170]51,1,3,20,"":S$[178]W$:[139]S$[178]""[167][142]
2480 OF$[178]"":A$[178]"CHR$ENERATE (null)UTPUT ASCILE ((null)/(null))?":[141]5020:[161]A$:[139]A$[179][177]"Y"[167]2560
2490 [158]BO,2,37,22,22,32,0:[158]AT,2,22,"WAITOPEN(null)UTFILE NAME: "
2500 [158]MT[170]51,1,7,16,"@0:SEARCH.TXT":OF$[178]W$
2515 [158]BO,2,37,22,22,32,0:[158]AT,2,22,"WAITOPENSTR$EVICE NUMBER: "
2520 [158]MT[170]51,1,7,2,[202]([196](DV),2):OF[178][197](W$):[139]OF[178]0[167]OF$[178]""
2530 [139]OF$[179][177]""[167][159]5,OF,7,OF$[170]",S,W":[152]5,[199](13)[199](13)
2560 [129]BB[178]0[164]65
2565 [158]MT[170]48,0:[158]MT[170]27,BL:[158]MT[170]33,BB
2570 [139]F%[167]F$[178]B$(BB)[170]"???-???":A$[178]"(null)EARCHING "[170]W$:BO$[178]W$:[141]5000:[141]4000
2575 [130]:[160]5:[151]186,DV:[138]
2999 [144]
3000 [158]MT[170]27,BN:[158]MT[170]33,BO%:[142]
4000 DX[178]0
4010 [141]1000:[139]F%[179]0[167][139]DX[179](ND[171]1)[167]DX[178]DX[170]1:[137]4010
4020 [139]F%[179]0[167][142]
4025 FI[178]F%:[158]MT[170]48,1:[129]J[178]0[164]FI:[158]MT[170]33,J:FI$(J)[178]W$:[130]:JJ[178]0
4030 [139]OF[178]D%(DX)[167][160]5
4033 [158]MT[170]48,0:[158]DT,FI$(JJ),D%(DX),84[172]256:[158]MT[170]36,84[172]256:EN[178]F%[171]2
4035 SP[178]0
4040 [158]MT[170]210,S$,SP,EN:[139]F%[177][171]1[167][141]5100
4090 [139]JJ[179]FI[167]JJ[178]JJ[170]1:[137]4030
5000 [158]MT,0,39,0,24,107,115,4,10
5005 [158]SH,0,37,16,21:[158]FR,1,38,16,20,15:[158]BO,2,37,17,19,160,1
5010 [153]"";:[158]CE,18,A$:[142]
5020 [141]5000:[151]198,0:[146]198,15:[142]
5100 SP[178]F%:K[178]0:[143]IFSP>ENTHENRETURN
5110 [139](SP[171]K)[177]0[167]K[178]K[170]1:[158]MT[170]33,SP[171]K:[139]W$[179][177]""[167]5110
5120 BV[178]SP[171]K
5130 K[178]0:[139]SP[177]EN[167]EV[178]SP:[142]
5140 [139](SP[170]K)[179]EN[167]K[178]K[170]1:[158]MT[170]33,SP[170]K:[139]W$[179][177]""[167]5140
5150 EV[178]SP[170]K:[139]EV[177]EN[167]EV[178]EN
5160 A$[178]" ":[141]5000
5165 [158]BO,0,39,0,0,160,15:[158]BO,0,39,1,1,160,1:[158]BO,0,39,2,2,160,12
5166 [158]BO,0,39,4,4,160,1:[158]BO,0,39,5,14,160,15:[158]BO,0,39,15,15,160,12
5167 [153]"";:[158]CE,1,BO$
5170 A[178]0:[153]"LIST";:[129]L[178]BV[164]BV[170]9:[139]L[179]EN[167][158]MT[170]33,L:[158]AT,1,5[170]A,W$:A[178]A[170]1
5180 [130]
5190 [139]OF$[179][177]""[167]A$[178]"(null)RITING TO "[170]OF$:[141]5005:[141]5600:[137]5300
5200 [153]"";:[158]AT,3,17,"ASCIND (null)EXT (null)CCURRENCE       ((null))"
5220 [158]AT,3,18,"(null)RINT (null)HIS (null)CCURRENCE      ((null))"
5230 [158]AT,3,19,"(null)UIT AND (null)E-START (null)ROGRAM  ((null))"
5240 [158]MT[170]63,17,2,37,3,1,7,"NPQ"
5250 [145]F%[137]5300,5400,5500
5300 [139]SP[178]EN[167][142]
5305 SP[178]EV:[158]MT[170]210,S$,SP,EN:[139]F%[177][171]1[167]5100
5310 [142]
5400 [160]4:[159]4,4,7:[160]4:[139]ST[167]5240
5405 [159]4,4,7:[139]LB$[179][177]BO$[167][152]4,"[**"S$" FOUND IN "BO$"**]":LB$[178]BO$
5410 [129]L[178]BV[164]EV:[158]MT[170]33,L:[152]4,W$:[130]:[160]4:[151]631,[198]("N"):[151]198,1
5420 [137]5240
5500 [160]5:[151]186,DV:[138]
5600 [139]OF[178]D%(DX)[167][160]5:[159]5,OF,5,OF$[170]",S,A"
5605 [139]LB$[179][177]BO$[167][152]5,"[**"S$" FOUND IN "BO$"**]":LB$[178]BO$
5610 [129]L[178]BV[164]EV:[158]MT[170]33,L:[152]5,W$:[130]:[142]
9999 [144]
10000 _"@0:O.WHOLE SEARCH"
10010 [144]
40000 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADL(null)"Q$F$Q$","D%(DX)
40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]